perm filename FM1[SCR,LCS] blob sn#454681 filedate 1979-07-25 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE			< Preliminary things
C00004 ENDMK
CāŠ—;
PRECEDE;			< Preliminary things
FUNC EXAMP.FUN[INS,MUS];	< Get functions from EXAMP.FUN[INS,MUS]
*

REVRB 0 0 1;			< One "note" only
P2 8;				< should be at least 2-3" longer than
END;				<   total of all instruments

NEWFM 0 5;			< Play for 5" only
P2 RHY/16X6/48X3;		< 6 16th notes and 3 48th notes, 
P3 NOT/B4/C5/D/B4/C5/D/C/D/C;	< notes & rhythms will loop until 5" is up
P4 .8;				< amplitude .8 of maximum
P5 F2;				< amplitude function

P6 F2;				< index function is same as amplitude func
P7 0;				< modulation index when function is at 0
P8 3;				< modulation index when function is at 1
P9 1;				< carrier frequency = P3 * P9
P10 1;				< modulation frequency = P3 * P10

P12 .05;			< percentage (0 ↔ 1) of reverberation
END;